home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / list-me life.l (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  223 lines
  1. 1000 **********************************
  2. 1010 *                                *
  3. 1020 *     L     III  FFFF  EEEE      *
  4. 1030 *     L      I   F     E         *
  5. 1040 *     L      I   FFF   EEE       *
  6. 1050 *     L      I   F     E         *
  7. 1060 *     LLLL  III  F     EEEE      *
  8. 1070 *                                *
  9. 1080 **********************************
  10. 1090 *     A SIMULATION OF LIFE!      *
  11. 1100 **********************************
  12. 1110 THE GAME OF LIFE WAS FIRST PRESENT
  13. 1120 ED BY JOHN CONWAY, A MATHEMATICIAN
  14. 1130 AT CAMBRIDGE UNIVERSITY, IN THE
  15. 1140 OCTOBER, 1970 ISSUE OF SCIENTIFIC
  16. 1150 AMERICAN.  SOME OF THE FOLLOWING
  17. 1160 IS COPIED FROM THAT ARTICLE.
  18. 1170 *                                *
  19. 1180 THE BASIC IDEA IS TO START WITH A
  20. 1190 SMALL GROUP OF "CELLS" IN A SIMPLE
  21. 1200 PATTERN, AND THEN OBSERVE HOW THAT
  22. 1210 PATTERN CHANGES AS YOU APPLY THE
  23. 1220 GENETIC LAWS DEVELOPED BY CONWAY.
  24. 1230 THE RULES FOLLOW THREE DESIDERATA:
  25. 1240 A) THERE SHOULD BE NO INITIAL PAT-
  26. 1250 .  TERN FOR WHICH THERE'S A SIMPLE
  27. 1260 .  PROOF THAT THE POPULATION CAN
  28. 1270 .  GROW WITHOUT LIMIT.
  29. 1280 B) THERE SHOULD BE INITIAL PATT-
  30. 1290 .  ERNS THAT APPARENTLY DO GROW
  31. 1300 .  WITHOUT LIMIT.
  32. 1310 C) THERE SHOULD BE SIMPLE INITIAL
  33. 1320 .  PATTERNS WHICH GROW AND CHANGE
  34. 1330 .  FOR A CONSIDERABLE PERIOD OF
  35. 1340 .  TIME BEFORE COMING TO AN END
  36. 1350 .  IN ONE OF 3 POSSIBLE WAYS:
  37. 1360 .  1) FADE AWAY FROM OVERCROWDING
  38. 1370 .     OR FROM BECOMING TOO SPARSE;
  39. 1380 .  2) SETTLE INTO A STABLE CON-
  40. 1390 .     FIGURATION;
  41. 1400 .  3) OR ENTER AN OSCILLATING
  42. 1410 .     PHASE WHICH REPEATS FOREVER.
  43. 1420 IN BRIEF, THE RULES SHOULD BE SUCH
  44. 1430 AS TO MAKE THE BEHAVIOUR OF THE
  45. 1440 POPULATIOB UNPREDICTABLE.
  46. 1450 *                                *
  47. 1460 THE RULES WHICH RESULT FROM THESE
  48. 1470 DESIDERATA ARE VERY SIMPLE.  FIRST
  49. 1480 NOTE THAT ANY SQUARE IN A CHECKER-
  50. 1490 BOARD (ASSUMING ONE THAT IS INFIN-
  51. 1500 ITE IN BOTH DIRECTIONS) HAS EIGHT
  52. 1510 OTHER SQUARES AROUND IT, OR EIGHT
  53. 1520 NEIGHBOURS.  THE RULES ARE:
  54. 1530 SURVIVALS: EVERY CELL WITH 2 OR 3
  55. 1540 .  NEIGHBOURS SURVIVES TO THE NEXT
  56. 1550 .  GENERATION.
  57. 1560 DEATHS: EACH CELL WITH 4 OR MORE
  58. 1570 .  NEIGHBOURS DIES FROM OVERCROWD-
  59. 1580 .  ING.  EACH CELL WITH 1 OR LESS
  60. 1590 .  NEIGHBOURS DIES FROM ISOLATION.
  61. 1600 BIRTHS: ANY EMPTY LOCATION WHICH
  62. 1610 .  HAS EXACTLY 3 NEIGHBOURING LOC-
  63. 1620 .  ATIONS CONTAINING CELLS WILL
  64. 1630 .  HAVE A CELL IN IT IN THE NEXT
  65. 1640 .  GENERATION.
  66. 1650 *                                *
  67. 1660 IT'S IMPORTANT TO NOTE THAT BIRTHS
  68. 1670 AND DEATHS OCCUR SIMULTANEOUSLY IN
  69. 1680 THE DEVELOPMENT OF THE NEXT GENER-
  70. 1690 ATION.  ORIGINALLY, THIS PROCESS
  71. 1700 WAS DONE USING 2 COLOURS OF CHECK-
  72. 1710 ERS ON A CHECKERBOARD.  NOW, DUE
  73. 1720 TO THE MARVEL OF THE COMMODORE 64,
  74. 1730 WE CAN PERFORM A TEDIOUS JOB IN A
  75. 1740 FEW SECONDS WITHOUT MAKING ANY
  76. 1750 ERRORS AT ALL.
  77. 1760 *                                *
  78. 1770 THE HISTORY OF MANY OF THE SIMPLE
  79. 1780 INITIAL PATTERNS OR COLONIES HAVE
  80. 1790 BEEN CHARTED AND ARE SHOWN BELOW.
  81. 1800 AS WELL, SOME OF THE MORE COMMON
  82. 1810 STABLE PATTERNS ARE ALSO SHOWN.
  83. 1820 *                                *
  84. 1830 *********THE 5 TRIPLETS***********
  85. 1840 *                                *
  86. 1850 * GEN #0      GEN#1      GEN#2   *
  87. 1860 ----------------------------------
  88. 1870 "   [209]
  89. 1880 "   (null)           (null)(null)       DIES
  90. 1890 "    [209]
  91. 1900 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  92. 1910 "   (null)           (null)        DIES
  93. 1920 "  [209] [209]          [209]
  94. 1930 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  95. 1940 "    (null)
  96. 1950 "   [209]           [209]        DIES
  97. 1960 "  (null)
  98. 1970 ----------------------------------
  99. 1980 "   [209][209]          [209][209]       THE BLOCK
  100. 1990 "   (null)           (null)(null)       (STABLE)
  101. 2000 ----------------------------------
  102. 2010 "               [209]
  103. 2020 "  (null)(null)(null)          (null)        BLINKER
  104. 2030 "               [209]        (CYLCLE=2
  105. 2040 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  106. 2050 [172]                                [172]
  107. 2060 [172][172][172][172][172][172]THE FIVE TETROMINOES[172][172][172][172][172][172][172][172]
  108. 2070 [172]                                [172]
  109. 2080 [172] GEN #0      GEN#1      GEN#2   [172]
  110. 2090 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  111. 2100 "   (null)(null)          (null)(null)       THE BLOCK
  112. 2110 "   [209][209]          [209][209]       (STABLE)
  113. 2120 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  114. 2130 "               (null)(null)          (null)(null)
  115. 2140 "  [209][209][209][209]         [209][209]         [209]  [209]
  116. 2150 "               (null)(null)          (null)(null)
  117. 2160 "                 BEEHIVE (STABLE)
  118. 2170 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  119. 2180 "   (null)           (null)(null)          (null)(null)
  120. 2190 "   [209][209]          [209][209]         [209]  [209]
  121. 2200 "    (null)          (null)(null)          (null)(null)
  122. 2210 "                 BEEHIVE (STABLE)
  123. 2220 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  124. 2230 "  (null)            (null)           (null)(null)
  125. 2240 "  [209][209][209]          [209][209]          [209][209]
  126. 2250 "                (null)          (null)(null)
  127. 2260 "                  SAME AS ABOVE
  128. 2270 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  129. 2280 "   (null)          (null)(null)(null)          (null)
  130. 2290 "  [209][209][209]         [209][209][209]         [209] [209]
  131. 2300 "               (null)
  132. 2310 "                          [209][209][209]
  133. 2320 "                   CONTINUES TO A
  134. 2330 "                   PATTERN CALLED
  135. 2340 "                   STREETLIGHTS.
  136. 2350 ----------------------------------
  137. 2360 *                                *
  138. 2370 *********STABLE FORMS*************
  139. 2380 *                                *
  140. 2390 ----------------------------------
  141. 2400 "    [209]        [209][209]        [209][209]
  142. 2410 "   (null) (null)      (null)  (null)      (null)  (null)
  143. 2420 "   [209] [209]       [209] [209]      [209]  [209]
  144. 2430 "    (null)         (null)        (null)(null)
  145. 2440 " BEEHIVE    LOAF      POND
  146. 2450 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  147. 2460 "    (null)        (null)(null)       (null)CLOSE(null)(null)
  148. 2470 "   [209] [209]       [209][209]       [209][209] [209]
  149. 2480 "    (null)
  150. 2490 "   TUB      BLOCK     SNAKE
  151. 2500 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  152. 2510 "    (null)        (null)        (null)(null)
  153. 2520 "   [209] [209]      [209] [209]       [209] [209]
  154. 2530 "    (null) (null)      (null)(null)        (null)(null)
  155. 2540 "     [209]
  156. 2550 "   BARGE    BOAT      SHIP
  157. 2560 ----------------------------------
  158. 2570 "    [209]        [209]        [209][209]
  159. 2580 "   (null) (null)      (null) (null)       (null) (null)
  160. 2590 "    [209] [209]      [209] [209]       [209] [209]
  161. 2600 "     (null) (null)      (null)(null)        (null)(null)
  162. 2610 "      [209]
  163. 2620 "LONG BARGE LONG BOAT LONG SHIP
  164. 2630 ----------------------------------
  165. 2640 *                                *
  166. 2650 *****INTERESTING PATTERNS*********
  167. 2655 *    TRY STARTING WITH THESE     *
  168. 2660 *                                *
  169. 2670 ----------------------------------
  170. 2680 "   [209][209]          [209]         [209] [209]
  171. 2690 "  (null)(null)          (null)(null)(null)        (null)(null)(null)
  172. 2700 "   [209]           [209]         [209] [209]
  173. 2710 "               (null)
  174. 2720 " THE 'R'     LATIN      LETTER
  175. 2730 "PENTOMINO    CROSS       'H'
  176. 2740 ----------------------------------
  177. 2750 "  [209] [209][209][209]         [209][209]       [209][209][209]
  178. 2760 "  (null) (null)           (null)(null)       (null)CLOSE(null)
  179. 2770 "  [209][209][209][209][209]       [209][209]         [209][160][209]
  180. 2780 "    (null)CLOSE(null)       (null)(null)
  181. 2790 "  [209][209][209][160][209]                 SYMBOL
  182. 2800 " SWASTIKA    BEACON      '(null)'
  183. 2810 ----------------------------------
  184. 2820 "    [209]                     [209]
  185. 2830 "     (null)(null)         (null)(null)(null)        (null)
  186. 2840 "   [209][209]          [209][209][209]       [209][209][209]
  187. 2850 "     (null)
  188. 2860 "   CLOCK       TOAD     GLIDER
  189. 2870 [171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
  190. 2880 [172]                                [172]
  191. 2890 THERE ARE MANY OTHER BEAUT[139]UL
  192. 2900 PATTERNS WHICH CAN BE GENERATED BY
  193. 2910 THIS SIMULATI[145].  TRY A FEW [162]
  194. 2920 STARTING PATTERNS [175] SEE HOW THEY
  195. 2930 GROW [175] DIE [171] SURPRI[191]G YOU ALL
  196. 2940 THE TIME.
  197. 2950 [172]                                [172]
  198. 2960 THE PROGRAM PROVIDED IS WRITTEN IN
  199. 2970 A COMBINATI[145] OF BASIC [175] MACHINE
  200. 2980 LANGUAGE.  THE MACHINE LANGUAGE
  201. 2990 WAS USED [164] PROVIDE SPEED DURING
  202. 3000 THE CREATI[145] OF [162] GENERATI[145]S.
  203. 3010 THE PROGRAM WILL ALLOW YOU [164] [147]
  204. 3020 [175] [148] PATTERNS [145] THE DISK AT
  205. 3030 ANY TIME.  [139] YOU FIND A PARTIC[171]
  206. 3040 ULARLY [181]ERESTING PATTERN, I
  207. 3050 WOULD BE PLEASED [164] HEAR FROM YOU
  208. 3060 AT THE FOLLOWING ADDRESS:
  209. 3070 "        GLEN BODIE
  210. 3080 "        90 KINGSMOUNT PK RD
  211. 3090 "        TORONTO, ONTARIO
  212. 3100 "        M4L 3L4
  213. 3110 "        (416) 461-3483
  214. 3120 AS A LAST NOTE, WHEN USING THE
  215. 3130 PROGRAM, YOU CAN ALWAYS PRESS F8
  216. 3140 IN ORDER TO SEE THE "HELP" INFOR-
  217. 3150 MATION.  THIS GIVES YOU SOME GEN-
  218. 3160 ERAL INFO LIKE THAT ABOVE AND A
  219. 3170 DESCRIPTION OF THE PURPOSES OF THE
  220. 3180 FUNCTION KEYS.
  221. 3190 *                                *
  222. 3200 ENJOY YOUR "LIFE"!
  223.